Profile of (eval 304)[Sub/Quote.pm:3]

Filename	(eval 304)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
Statements	Executed 139 statements in 452µs
Eval Invoked At	/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals	1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
51	2	1	304µs	304µs	JSON::Schema::Modern::Document::_serialized_schema
1	1	1	6µs	15µs	JSON::Schema::Modern::Document::BEGIN@6.146
1	1	1	4µs	11µs	Method::Generate::Accessor::_Generated::BEGIN@20.148
1	1	1	3µs	3µs	Method::Generate::Accessor::_Generated::BEGIN@11.147

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					{
2	2	1µs			my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
3	1	0s			my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
4	1	0s			my $isa_check_for__5fserialized_5fschema = ${$_[1]->{"\$isa_check_for__5fserialized_5fschema"}};
5					package JSON::Schema::Modern::Document;
6	2	31µs	2	24µs	# spent 15µs (6+9) within JSON::Schema::Modern::Document::BEGIN@6.146 which was called: # once (6µs+9µs) by Sub::Quote::_clean_eval at line 6 no warnings 'closure'; # spent 15µs making 1 call to JSON::Schema::Modern::Document::BEGIN@6.146 # spent 9µs making 1 call to warnings::unimport
7					# spent 304µs within JSON::Schema::Modern::Document::_serialized_schema which was called 51 times, avg 6µs/call: # 37 times (32µs+0s) by List::Util::first at line 174 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm, avg 865ns/call # 14 times (272µs+0s) by JSON::Schema::Modern::add_schema at line 170 of /Users/ether/git/JSON-Schema-Modern/lib/JSON/Schema/Modern.pm, avg 19µs/call sub _serialized_schema {
8					($_QUOTED,$_UNQUOTED) if 0;
9					# BEGIN quote_sub PRELUDE
10					package Method::Generate::Accessor::_Generated;
11					# spent 3µs within Method::Generate::Accessor::_Generated::BEGIN@11.147 which was called: # once (3µs+0s) by Sub::Quote::_clean_eval at line 16 BEGIN {
12	1	0s			$^H = 1762;
13	1	1µs			${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
14	1	2µs			%^H = (
15					);
16	1	20µs	1	3µs	} # spent 3µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@11.147
17					# END quote_sub PRELUDE
18					(@_ > 1
19	15	206µs			? scalar do { my $value = $_[1];
20	47	102µs	2	18µs	# spent 11µs (4+7) within Method::Generate::Accessor::_Generated::BEGIN@20.148 which was called: # once (4µs+7µs) by Sub::Quote::_clean_eval at line 20 (do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for__5fserialized_5fschema, "Str", $value, "attribute_name","_serialized_schema","attribute_step","isa check","mgaca","0","varname","\$self->{\"_serialized_schema\"}"); $value }), # spent 11µs making 1 call to Method::Generate::Accessor::_Generated::BEGIN@20.148 # spent 7µs making 1 call to warnings::unimport
21					($_[0]->{"_serialized_schema"} = $value),
22	15	14µs			($_[0]->{"_serialized_schema"}),
23					}
24	51	72µs			: $_[0]->{"_serialized_schema"}
25					) }
26	1	0s			$$_UNQUOTED = \&_serialized_schema;
27					}
28	1	3µs			1;
29
30					;